****************************************************************************
*
* PROGRAMA: RELATORIO de clientes POR NOME,codigo,Nome fantasia
*AUTOR: LUIS LIN
*DATA: 23.12.96
*
*
*****************************************************************************

#include "Inkey.ch"
#include "set.ch"
#define ROMAN_S CHR(27)+CHR(107)+CHR(48)
#define COMP_S CHR(15)
#define COMP_N CHR(18)



SET SCOREBOARD OFF
SET DELETED ON                        //IGNORAR REGISTROS DELETADOS

     @ 01,CENTRA("*** RELATORIO CLIENTES POR NOME ***") SAY "*** RELATORIO DE CLIENTES POR NOME ***"

USE clientes new alias CFO
SET ORDER TO tag ncodcli

udf("")
if !  Disp_sn({"Confirma Impressao, <S/N> ? "})
     RETURN                                     //SAIR FORA DO PROGRAMA
ELSE
       DO WHILE .NOT. ISPRINTER()
          udf("Impressora desligada ou c/problema")
          INKEY(5)
          EXIT
       ENDDO
     udf("")
            
     SET DEVICE TO PRINTER                     //TODO @ VAI SER DIRECIONADA P/IMPRESSORA
     SET PRINT TO RELCLI.txt                  //CRIA ARQUIVO IMAGEM DE IMPRESSAO
    
     EJECT                                    //MANDA UM CODIGO PARA IMPRESSORA
     DO WHILE .NOT. EOF()                     //IMPRIME ATE O FINAL, (EOF) FINAL ARQUIVO (BOF) INICIO DE ARQUIVO
        @ 01,20 SAY COMP_S +"RELATORIO DO CADASTRO DE CLIENTES"
        @ 01,60 SAY DATE() 
        @ 01,70 SAY "PAG:"+ PAGINA()   
        @ PROW()+2,00  SAY "CODIGO"
        @ PROW()  ,08  SAY "FANTASIA"                                 //PROW() - FORNECE A POSICAO DE LINHA DE CABECA DE IMPRESSORA
        @ PROW()  ,23  SAY "NOME"                                 //PROW() - FORNECE A POSICAO DE LINHA DE CABECA DE IMPRESSORA
        @ PROW()  ,64  SAY "ENDERECO"
*       @ PROW()  ,105 SAY "BAIRRO"
*       @ PROW()  ,126 SAY "CIDADE"
*       @ PROW()  ,137 SAY "ESTADO"
           DO WHILE PROW()< 70 .AND. .NOT. EOF()
              @ PROW()+1, 01        SAY CL_NCODCLI
              @ PROW()  , PCOL()+1  SAY CL_CNOMFAN                    //PCOL() - FORNECE A POSICAO DE COLUNA DE CABECA DE IMPRESSORA
              @ PROW()  , PCOL()+1 SAY CL_CNOMCFO
              @ PROW()  , PCOL()+1 SAY CL_CENDCFO
              @ PROW()+1, 08       SAY CL_CBAICFO
              @ PROW()  , PCOL()+1 SAY CL_CCIDCFO
              @ PROW()  , PCOL()+1  SAY CL_CESTCFO
              @ PROW()  , PCOL()+1  SAY "CEP: "+transform(CL_NCEPCFO,"@R 99999-999")
              @ PROW()  , PCOL()+1  SAY "CGC: "+transform(CL_NCGCCLI,"@R 99.999.999/9999-99")
              @ PROW()  , PCOL()+1  SAY "I.E.: "+transform(CL_CINSCLI,"@R XXX.XXX.XXX.XXX")
              SKIP                           // PULA UM REGISTRO
           ENDDO        
     ENDDO
     @ PROW(),PCOL() SAY COMP_S
     SET DEVICE TO SCREEN
ENDIF
CLOSE CFO
return

FUNCTION PAGINA
STATIC PAG:=0
PAG+=1
RETURN STRZERO(PAG,3)


